91 CLR:M=24000:DIMN$(1001),T$(1001):POKE53272,21:POKE657,128:POKE808,225
92 POKE53265,23:POKE53270,7:POKE775,200:POKE788,52
99 LU=0:LA=0:GOSUB100:GOTO110
100 PRINT"[147][154]":POKE53281,6:POKE53280,6
101 PRINT"[145][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
102 [153]"(null)TANTANTANTAN^TANTAN^                    ORTANTANORTANTANTANTAN(null)
103 PRINT"[221]  [221] [173][174][192][189]  TSP PHONE MASTER[154]  [173][192][176][189] [221]  [221]
104 [153]"(null)  /TANTANEXP                        /TANTANEXP  (null)
105 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
106 [129]Z[178]1[164]18:[153]"(null)                                    (null)":[130]
108 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTAN(C)1992 BY MAGIC DISKCONTTANEXP":[142]
110 [153]"[1] NUMMERN EINGEBEN":[153]"[2] KORRIGIEREN
113 PRINT"[3] SORTIEREN":PRINT"[4] ANSEHEN/SUCHEN
115 [153]"LIST[5] BLOCK SICHERN":[153]"LIST[6] BLOCK LADEN
116 PRINT"[154][7] SPEICHER LOESCHEN":PRINT"[8] CONVERTER
117 [153]"[9] BEENDEN
130 PRINT""M"[154]BYTES FREE IN MEMORY
131 [139]AN[178]1[167][153]""AN"CONTDATENSATZ VORHANDEN":[137]200
132 [153]""AN"CONTDATENSAETZE VORHANDEN
200 GETA$:IFA$=""THEN200
202 A=VAL(A$):IFA<1ORA>9THEN200
205 ONAGOTO300,210,211,212,213,800,214,900,1005
210 IFAN>0THEN500
211 IFAN>0THEN1900
212 IFAN>0THEN1100
213 IFAN>0THEN700
214 IFAN>0THEN1000
215 GOSUB1240:GOTO200
216 A$(3)="                        DRUECKE TASTE ":RETURN
220 A$(2)="     DER SPEICHER IST ZU VOLL !!      "
221 GOSUB216:GOTO240
225 A$(2)=" DIESER NAME EXISTIERT NICHT IM BLOCK "
226 GOSUB216:GOTO240
230 A$(2)="  SIND SIE SICH DABEI GANZ SICHER ??  "
231 A$(3)=" J:JA                          N:NEIN ":GOTO240
232 A$(2)=" DIESER BLOCK IST NICHT AUF DER DISK. "
233 GOSUB216:GOTO240
234 A$(2)="[160] ES WURDEN ALLE DATENFELDER BESETZT  "
235 GOSUB216:GOTO240
236 A$(2)=" DAS GERAET WURDE NICHT EINGESCHALTET "
237 GOSUB216:GOTO240
240 PRINT"[147]":POKE53280,0:POKE53281,0
241 A$(1)=" >>>>>>>>>>>>>> MESSAGE <<<<<<<<<<<<< "
242 A$(0)="                                       "
250 PRINT""A$(0):PRINTA$(1):PRINTA$(0):PRINTA$(2):PRINTA$(0):PRINTA$(3)
251 PRINTA$(0)
255 FORX=1TO100
260 GETA$:IFA$=""THENNEXT:GOTO270
261 ONLAGOTO99,99,1001,1006,99
270 PRINT"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]
271 [129]X[178]1[164]5:[153]"GETWAITGET":[130]X
272 [153]"LOGNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWWAITCOS
275 FORX=1TO100
278 GETA$:IFA$=""THENNEXT:GOTO250
280 ONLAGOTO99,99,1001,1006,99
298 REM
299 END
300 GOSUB100:PRINT"NUMMERN EINGEBEN":LU=1:PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
305 AN[178]AN[170]1:N$(AN)[178]"":MA[178]0:MB[178]0:[139]M[179]28[167]LA[178]5:[137]220
306 [139]AN[177]1000[167]AN[178]1000:LA[178]5:[137]234
310 [153]"NAME   :
311 PRINT"NUMMER :
320 [153]""[166]11)N$(AN)"STOPTO ";
330 [161]A$:[139]A$[178]""[167]330
335 [139]A$[178][199](13)[175]MA[177]0[167]365
336 [139]A$[178][199](20)[167]355
337 [139]A$[178]"_"[175]LU[178]1[167]N$(AN)[178]"":T$(AN)[178]"":AN[178]AN[171]1:[137]99
338 [139]MA[178]16[167][141]1240:[137]330
340 [139]A$[178]"."[176]A$[178]" "[167]350
345 [139][198](A$)[177]64[175][198](A$)[179]91[167]350
347 [141]1240:[137]330
350 N$(AN)[178]N$(AN)[170]A$:MA[178]MA[170]1:[137]320
355 [141]360:[137]320
360 [139]MA[178]0[167][129]X[178]1[164]6:[151]53280,X:[130]:[142]
362 N$(AN)[178][200](N$(AN),MA[171]1):MA[178]MA[171]1:[142]
365 [153]"CMDCMD "
370 [153]""[166]11)T$(AN)"STOPTO ";
380 [161]A$:[139]A$[178]""[167]380
385 [139]A$[178][199](13)[175]MB[177]0[167]420
386 [139]A$[178][199](20)[167]405
387 [139]MB[178]12[167][141]1240:[137]380
390 [139]A$[178]"/"[176]A$[178]" "[176]A$[178]"-"[167]400
395 [139][198](A$)[179]48[176][198](A$)[177]57[167][141]1240:[137]380
400 T$(AN)[178]T$(AN)[170]A$:MB[178]MB[170]1:[137]370
405 [141]410:[137]370
410 [139]MB[178]0[167][129]X[178]1[164]6:[151]53280,X:[130]:[142]
412 T$(AN)[178][200](T$(AN),MB[171]1):MB[178]MB[171]1:[142]
420 [153]"CMDCMD "
430 [153]"CONTEINGABE KORREKT ?
431 GETA$:IFA$=""THEN431
432 IFA$="Y"ORA$="J"THENA=1:GOTO450
440 IFA$="N"THENA=2:GOTO450
441 GOTO431
450 PRINT""SPC(11)"                ":PRINTSPC(11)"            "
451 PRINT"                      "
452 IFLU=1THEN460
455 IFLU=2ANDA=1THENAN=Y:M=M-MA-MB:GOTO99
456 GOTO320
460 IFA=1THENM=M-MA-MB:GOTO305
461 GOTO320
500 GOSUB100:Y=AN:MA=0:E$="":PRINT"KORRIGIEREN":PRINT"[183][183][183][183][183][183][183][183][183][183][183]
501 [153]"NAME :
510 PRINT""E$"[144][164] ";
520 GETA$:IFA$=""THEN520
521 IFA$=CHR$(13)ANDMA>0THEN535
522 IFA$=CHR$(20)THEN530
523 IFA$="_"THEN99
524 IFMA=16THENGOSUB1240:GOTO520
525 IFA$="."ORA$=" "THEN528
526 IFASC(A$)>64ANDASC(A$)<91ORASC(A$)>192ANDASC(A$)<219THEN528
527 GOSUB1240:GOTO520
528 E$=E$+A$:MA=MA+1:GOTO510
530 GOSUB531:GOTO510
531 IFMA=0THENFORX=1TO6:POKE53280,X:NEXT:RETURN
532 E$=LEFT$(E$,MA-1):MA=MA-1:RETURN
535 PRINT"[157][157] "
536 IFLU=3THEN930
537 IFLU=4THEN950
540 PRINT"[154]SEARCHING...
550 [129]X[178]1[164]AN:[139][200](N$(X),MA)[178]E$[167]560
555 [130]X:LA[178]2:[137]225
560 [153]"ON                  ":[139]LU[178]6[167]1510
565 [153]"ONONONON"N$(X):[153]""T$(X):[139]LU[178]5[167]1410
570 [153]"[1] VERAENDERN
571 PRINT"[2] WEITER SUCHEN
572 [153]"[3] AUSGANG
580 GETA$:IFA$=""THEN580
581 IFA$="1"THENMA=0:MB=0:LU=2:Y=AN:AN=X:GOSUB100:GOTO590
582 IFA$="2"THEN595
583 IFA$="3"ORA$="_"THEN99
584 GOTO580
590 M=M+LEN(N$(X)):M=M+LEN(T$(X)):N$(X)="":T$(X)="":GOTO310
595 PRINT"":FORZ=1TO11:PRINT"                            ":NEXTZ
596 PRINT"[145][145][145][145][145][145][145]SEARCHING AGAIN...":GOTO555
610 IFA$="J"THEN99
700 OPEN2,8,2:CLOSE2:IFST<>0THENLA=2:GOTO236
701 GOSUB100:MA=0:E$="":PRINT"BLOCK SICHERN":PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183]
710 [153]"WELCHEN BLOCK (1-9) ?
720 GETA$:IFA$=""THEN720
721 IFA$="_"THEN99
722 A=VAL(A$):IFA<1ORA>9THEN720
730 OPEN1,8,9,"@:BLOCK"+A$+",S,W
740 [152]1,AN",":[152]1,M","
750 [129]X[178]1[164]AN
751 [153]""[166]16)AN[170]AN[171]X"CMD "
752 [152]1,T$(X)",":[130]X
753 [129]X[178]1[164]AN
754 [153]""[166]16)AN[171]X"CMD ":[152]1,N$(X)",":[130]X
755 [160]1:[137]99
800 [159]2,8,2:[160]2:[139]ST[179][177]0[167]LA[178]2:[137]236
801 [141]100:MA[178]0:E$[178]"":[153]"BLOCK LADEN":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
810 PRINT"WELCHEN BLOCK (1-9) ?
820 [161]A$:[139]A$[178]""[167]820
821 [139]A$[178]"_"[167]99
822 A[178][197](A$):[139]A[179]1[176]A[177]9[167]820
830 Y[178]AN:AN[178]0:[159]1,8,9,"BLOCK"[170]A$[170]",S,R":[159]15,8,15:[132]15,A:[160]15
832 [139]A[178]0[167][160]1:[159]1,8,9,"BLOCK"[170]A$[170]",S,R":[137]845
840 LA[178]5:AN[178]Y:[160]1:[137]232
845 [132]1,AN:[132]1,M
850 [129]X[178]1[164]AN:[153]""[166]16)AN[170]AN[171]X"CMD ":[132]1,T$(X):[130]X
865 [129]X[178]1[164]AN:[153]""[166]16)AN[171]X"CMD ":[132]1,N$(X):[130]X
875 [160]1:[129]X[178]1[164]10:N$(X[170]AN)[178]"":T$(X[170]AN)[178]"":[130]:[137]99
900 [159]2,8,2:[160]2:[139]ST[179][177]0[167]LA[178]2:[137]236
901 [141]100:MA[178]0:E$[178]"":[153]"CONVERTER":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSR
902 PRINT"[1] DATEN-VERWALTUNG
903 [153]"[2] PRO REGISTER
906 PRINT"[3] AUSGANG
910 [161]A$:[139]A$[178]""[167]910
911 [139]A$[178]"1"[167]LU[178]3:[137]920
912 [139]A$[178]"2"[167]LU[178]4:[137]920
913 [139]A$[178]"3"[176]A$[178]"_"[167]99
914 [137]910
920 [141]100:MA[178]0:E$[178]"":[153]"CONVERTER":[153]"USRUSRUSRUSRUSRUSRUSRUSRUSR
921 GOTO501
930 OPEN1,8,9,+E$+",S,R
931 [132]1,A,B
932 AN[178]B[171]A:M[178]20000:[139]A[178]1[167]AN[178]B:[137]940
940 [129]X[178]A[164]AN:[132]1,N$(X),B$,A$,A$,T$(X):M[178]M[171][195](N$(X)):M[178]M[171][195](T$(X))
941 N$(X)[178]N$(X)[170]" ":N$(X)[178]N$(X)[170]B$:M[178]M[171][195](B$):M[178]M[171]1:B$[178]"":[130]X:[160]1:[137]970
950 [159]1,8,9,[170]E$[170]",S,R
960 INPUT#1,AN:FORX=1TOAN:INPUT#1,A$,B$:N$(X)=LEFT$(A$,16):T$(X)=LEFT$(B$,12)
965 M=M-LEN(N$(X)):M=M-LEN(T$(X)):NEXTX
970 CLOSE1:FORX=1TO10:N$(X+AN)="":T$(X+AN)="":NEXTX:GOTO99
1000 LA=3:GOTO230
1001 IFA$="J"THENCLR:M=24000:DIMN$(1501),T$(1501):GOTO99
1002 GOTO99
1005 LA=4:GOTO230
1006 IFA$="J"THENSYS64738
1007 GOTO99
1100 GOSUB100:S=1:PRINT"NAME                    TELEFON
1101 [153]"------------------------------------
1110 PRINT"------------------------------------
1120 [153]"[1] SEITE VOR         [6] LOESCHEN
1121 PRINT"[2] SEITE ZURUECK     [7] FILTERN
1122 [153]"[3] SEITE DRUCKEN     [8] FILTER AUS
1123 PRINT"[4] BLOCK ANFANG      [9] AUSGANG
1124 [153]"[5] SUCHEN
1150 IFFI=1THEN1160
1151 PRINT"":FORX=STOS+9:PRINT""N$(X):PRINT"[145]"SPC(25)T$(X):NEXT
1152 GOTO1200
1160 PRINT"":FORX=STOS+9
1161 IFLEFT$(T$(X),LEN(FI$))<>FI$THENPRINT""N$(X):PRINT"[145]"SPC(25)T$(X)
1162 IFLEFT$(T$(X),LEN(FI$))=FI$THENPRINT""N$(X):PRINT"[145]"SPC(25)T$(X)
1163 NEXT
1200 GETA$:IFA$=""THEN1200
1201 IFA$="_"THEN99
1202 A=VAL(A$):IFA<1ORA>9THEN1200
1210 ONAGOTO1220,1230,1800,1300,1400,1500,1600,1700,99
1220 IFN$(S+10)=""THENGOSUB1240:GOTO1200
1221 S=S+10:GOSUB1250:GOTO1150
1230 IFS=1THENGOSUB1240:GOTO1200
1231 S=S-10:GOSUB1250:GOTO1150
1240 FORZ=1TO6:POKE53280,Z:NEXTZ:RETURN
1250 PRINT"":FORZ=1TO10:PRINT"                                    "
1251 NEXT:RETURN
1300 S=1:GOSUB1250:GOTO1150
1400 GOSUB100:LU=5:MA=0:E$="":PRINT"SUCHEN":PRINT"[183][183][183][183][183][183]
1401 [137]501
1410 [153]"DRUECKE TASTE
1411 GETA$:IFA$=""THEN1411
1412 GOTO99
1500 GOSUB100:LU=6:MA=0:E$="":PRINT"LOESCHEN":PRINT"[183][183][183][183][183][183][183][183]
1501 [137]501
1510 [153]"ONBITTE WARTEN "
1520 [139]X[178]AN[167]M[178]M[170][195](N$(X)):M[178]M[170][195](T$(X)):N$(X)[178]"":T$(X)[178]"":AN[178]AN[171]1:[137]99
1530 M[178]M[170][195](N$(X)):M[178]M[170][195](T$(X))
1531 [129]Y[178]X[164]AN:N$(Y)[178]N$(Y[170]1):T$(Y)[178]T$(Y[170]1):[130]Y:AN[178]AN[171]1:[137]99
1600 [141]100:LU[178]7:MA[178]0:E$[178]"":[153]"FILTER":[153]"USRUSRUSRUSRUSRUSR
1601 PRINT"VORWAHL :
1602 [153]""E$"STOPTO ";
1603 [161]A$:[139]A$[178]""[167]1603
1604 [139]A$[178][199](13)[175]MA[177]0[167]1615
1605 [139]A$[178][199](20)[167]1612
1606 [139]A$[178]"_"[167]99
1607 [139]MA[178]12[167][141]1240:[137]1603
1608 [139]A$[178]"/"[176]A$[178]"-"[176]A$[178]" "[167]1611
1609 [139][198](A$)[177]47[175][198](A$)[179]58[167]1611
1610 [141]1240:[137]1603
1611 E$[178]E$[170]A$:MA[178]MA[170]1:[137]1602
1612 [141]1613:[137]1602
1613 [139]MA[178]0[167][129]X[178]1[164]6:[151]53280,X:[130]:[142]
1614 E$[178][200](E$,MA[171]1):MA[178]MA[171]1:[142]
1615 [153]"CMDCMD ":FI[178]1:FI$[178]E$:[137]1100
1700 FI[178]0:FI$[178]"":[137]1151
1800 [159]2,4,7:[160]2:[139]ST[179][177]0[167]LA[178]2:[137]236
1810 B$[178]" ":A$[178]""
1811 [159]4,4:[129]X[178]S[164]S[170]9
1812 A$[178]N$(X):A[178][195](N$(X)):B[178]20[171]A:[129]Y[178]1[164]B:A$[178]A$[170]" ":[130]:[152]4,A$;T$(X)
1813 [130]:[160]4,4:[137]1200
1900 [139]AN[177]1[167]2000
1901 [137]215
2000 AA[178]AN:A[178]AN:[129]X[178]A[164]0[169][171]1:[129]Y[178]1[164]AA
2001 [139]N$(Y)[177]N$(X)[167]2004
2002 [130]Y:[130]X
2003 [137]2006
2004 A$(1)[178]N$(Y):N$(Y)[178]N$(X):N$(X)[178]A$(1):A$(2)[178]T$(Y):T$(Y)[178]T$(X):T$(X)[178]A$(2)
2005 [151]53280,[181](15[172][187](0))[170]1:[137]2002
2006 A$(1)[178]N$(0):A$(2)[178]T$(0)
2007 [129]X[178]0[164]AA:N$(X)[178]N$(X[170]1):T$(X)[178]T$(X[170]1):[130]X:N$(AA)[178]A$(1):T$(AA)[178]A$(2)
2008 [137]99